home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / FALCON / MAGI / MAGIBOOT.S < prev    next >
Encoding:
Text File  |  1993-05-10  |  819 b   |  50 lines
  1. ; MAGI, Par AGOPIAN Mathias
  2. ; pour STMAG.
  3. ; Programme corrigeant 
  4. ; les modifications Hard du Falcon 030
  5. ;translation by Gunstick
  6. ;this is the stuff which goes into the bootsector
  7.     include    MAKEBOOT.S
  8.  
  9.     section    TEXT
  10.  
  11. Prg    lea    $300000,a0
  12.     cmp.l    #'MAGI',(a0)
  13.     bne.s    .fin
  14.     jmp    $c(a0)
  15.  
  16. .fin    lea    text(pc),a0
  17.     bsr    print
  18.     bsr    inkey
  19.     move.w    d0,d7
  20.     lea    cls(pc),a0
  21.     bsr    print
  22.     cmp.b    #'1',d7
  23.     beq.s    .meg1
  24.     move.b    #$8,$424.w
  25.     move.b    #$8,$ff8001
  26.     move.l    #$200000,$42e.w
  27.     rts
  28. .meg1    move.b    #$5,$424.w
  29.     move.b    #$5,$ff8001
  30.     move.l    #$100000,$42e.w
  31.     rts
  32.     
  33. print    move.l    a0,-(sp)
  34.     move.w    #9,-(sp)
  35.     trap    #1
  36.     addq.l    #6,sp
  37.     rts
  38.     
  39. inkey    move.w    #1,-(sp)    ; Inkey
  40.     trap    #1
  41.     addq.l    #2,sp
  42.     rts
  43.  
  44. text    dc.b    27,'E','Reconfigure memory',$a,$d
  45.     dc.b    'to (1)MB or (2)MB : ',0
  46. cls    dc.b    27,'E',0
  47.     even
  48. FinPrg
  49.  
  50.